/////////////////////////////////////////////////////////////////////
//
// OposBb.h
//
//   Bump Bar header file for OPOS Applications.
//
// Modification history
// ------------------------------------------------------------------
// 1998-03-06 OPOS Release 1.3                                   BB
// 2011-04-07                                                    EPO
//   Converted to Pascal by Eric Orilla
//
/////////////////////////////////////////////////////////////////////

unit oposbb;

interface

/////////////////////////////////////////////////////////////////////
// "CurrentUnitID" and "UnitsOnline" Properties
//   and "Units" Parameter Constants
/////////////////////////////////////////////////////////////////////

function BB_UID(Value: Integer): Integer;

const

  BB_UID_1               : Longint     = $00000001;
  BB_UID_2               : Longint     = $00000002;
  BB_UID_3               : Longint     = $00000004;
  BB_UID_4               : Longint     = $00000008;
  BB_UID_5               : Longint     = $00000010;
  BB_UID_6               : Longint     = $00000020;
  BB_UID_7               : Longint     = $00000040;
  BB_UID_8               : Longint     = $00000080;
  BB_UID_9               : Longint     = $00000100;
  BB_UID_10              : Longint     = $00000200;
  BB_UID_11              : Longint     = $00000400;
  BB_UID_12              : Longint     = $00000800;
  BB_UID_13              : Longint     = $00001000;
  BB_UID_14              : Longint     = $00002000;
  BB_UID_15              : Longint     = $00004000;
  BB_UID_16              : Longint     = $00008000;
  BB_UID_17              : Longint     = $00010000;
  BB_UID_18              : Longint     = $00020000;
  BB_UID_19              : Longint     = $00040000;
  BB_UID_20              : Longint     = $00080000;
  BB_UID_21              : Longint     = $00100000;
  BB_UID_22              : Longint     = $00200000;
  BB_UID_23              : Longint     = $00400000;
  BB_UID_24              : Longint     = $00800000;
  BB_UID_25              : Longint     = $01000000;
  BB_UID_26              : Longint     = $02000000;
  BB_UID_27              : Longint     = $04000000;
  BB_UID_28              : Longint     = $08000000;
  BB_UID_29              : Longint     = $10000000;
  BB_UID_30              : Longint     = $20000000;
  BB_UID_31              : Longint     = $40000000;
  BB_UID_32              : Longword    = $80000000;


/////////////////////////////////////////////////////////////////////
// "DataEvent" Event: "Status" Parameter Constants
/////////////////////////////////////////////////////////////////////

  BB_DE_KEY              : Longint     = $01;


implementation

function BB_UID(Value: Integer): Integer;
begin
  Result := (Value-1) shl 1;
end;

end.
